home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Interfaces / UniversalInterfaces 2.0 / PInterfaces / Finder.p < prev    next >
Encoding:
Text File  |  1995-04-18  |  2.3 KB  |  89 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Finder.p
  3.  
  4.      Contains:    Finder flags and container types.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. }
  19.  
  20. {$IFC UNDEFINED UsingIncludes}
  21. {$SETC UsingIncludes := 0}
  22. {$ENDC}
  23.  
  24. {$IFC NOT UsingIncludes}
  25.  UNIT Finder;
  26.  INTERFACE
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED __FINDER__}
  30. {$SETC __FINDER__ := 1}
  31.  
  32. {$I+}
  33. {$SETC FinderIncludes := UsingIncludes}
  34. {$SETC UsingIncludes := 1}
  35.  
  36.  
  37. {$PUSH}
  38. {$ALIGN MAC68K}
  39. {$LibExport+}
  40.  
  41. CONST
  42. { Make only the following consts avaiable to resource files that include this file }
  43.     kCustomIconResource            = -16455;                        { Custom icon family resource ID }
  44.     kContainerFolderAliasType    = 'fdrp';                        { type for folder aliases }
  45.     kContainerTrashAliasType    = 'trsh';                        { type for trash folder aliases }
  46.     kContainerHardDiskAliasType    = 'hdsk';                        { type for hard disk aliases }
  47.     kContainerFloppyAliasType    = 'flpy';                        { type for floppy aliases }
  48.     kContainerServerAliasType    = 'srvr';                        { type for server aliases }
  49.     kApplicationAliasType        = 'adrp';                        { type for application aliases }
  50.     kContainerAliasType            = 'drop';                        { type for all other containers }
  51. { types for Special folder aliases }
  52.     kSystemFolderAliasType        = 'fasy';
  53.     kAppleMenuFolderAliasType    = 'faam';
  54.     kStartupFolderAliasType        = 'fast';
  55.     kPrintMonitorDocsFolderAliasType = 'fapn';
  56.     kPreferencesFolderAliasType    = 'fapf';
  57.     kControlPanelFolderAliasType = 'fact';
  58.     kExtensionFolderAliasType    = 'faex';
  59. { types for AppleShare folder aliases }
  60.     kExportedFolderAliasType    = 'faet';
  61.     kDropFolderAliasType        = 'fadr';
  62.     kSharedFolderAliasType        = 'fash';
  63.     kMountedFolderAliasType        = 'famn';
  64.  
  65. { Finder Flags }
  66.     kIsOnDesk                    = $1;
  67.     kColor                        = $E;
  68.     kIsShared                    = $40;
  69.     kHasBeenInited                = $100;
  70.     kHasCustomIcon                = $400;
  71.     kIsStationery                = $800;
  72.     kIsStationary                = $800;
  73.     kNameLocked                    = $1000;
  74.     kHasBundle                    = $2000;
  75.     kIsInvisible                = $4000;
  76.     kIsAlias                    = $8000;
  77.  
  78.  
  79. {$ALIGN RESET}
  80. {$POP}
  81.  
  82. {$SETC UsingIncludes := FinderIncludes}
  83.  
  84. {$ENDC} {__FINDER__}
  85.  
  86. {$IFC NOT UsingIncludes}
  87.  END.
  88. {$ENDC}
  89.